home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / byt85apr.lbr / EXAMPLES.LQR / EXAMPLE5.PAS < prev    next >
Pascal/Delphi Source File  |  1985-09-15  |  896b  |  42 lines
  1. PROGRAM TEST1(INPUT, OUTPUT);
  2.   VAR
  3.     SUM,N,MAX,AVE:REAL;
  4.     COUNT,RAINY:INTEGER;
  5.   BEGIN
  6.     SUM:=0;
  7.     COUNT:=0;
  8.     RAINY :=0;
  9.     MAX :=0;
  10.     WRITELN('ENTER RAINFALL');
  11.     READLN;
  12.     READ(N);
  13.     WHILE N<>9999 DO
  14.       BEGIN
  15.     IF N<0 THEN
  16.       WRITELN(N:0:2,' IS NOT A POSSIBLE RAINFALL, TRY AGAIN')
  17.     ELSE
  18.       BEGIN
  19.         COUNT:=COUNT+1;
  20.         SUM:=SUM+1;
  21.         IF N>0 THEN
  22.           RAINY:=RAINY+1;
  23.         IF N>MAX THEN
  24.           N:=MAX;
  25.       END;
  26.     WRITELN('ENTER RAINFALL');
  27.     READLN;
  28.     READ(N)
  29.       END;
  30.     WRITELN;
  31.     IF COUNT=0 THEN
  32.       WRITELN(COUNT:0,' VALID RAINFALLS WERE ENTERED.')
  33.     ELSE
  34.       BEGIN
  35.     AVE:=SUM/COUNT;
  36.     WRITELN('THE AVERAGE RAINFALL WAS ',AVE:0:2,' INCHES PER DAY.');
  37.     WRITELN('THE HIGHEST RAINFALL WAS ',MAX:0:2,' INCHES.');
  38.     WRITELN('THERE WERE ',RAINY:0,' RAINY DAYS IN THIS PERIOD.')
  39.       END
  40. END.
  41.  
  42.